home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 22 / PC Actual CD 22.iso / SHARE / prog / POVRAY / TWISTORI.ZIP / TWISTORI.POV
Encoding:
Text File  |  1996-06-19  |  555 b   |  31 lines
  1.  
  2. // BEGIN -=- TWISTORI.POV -=-
  3.  
  4. #include"colors.inc"
  5. #include"textures.inc"
  6. camera{location<0,0,-60>look_at 0}
  7. light_source{<-50,0,-99>White}
  8. light_source{<0,0,-99>White}
  9. light_source{<50,0,-99>White}
  10. background{Gray10}
  11. #declare A=0
  12. #while(A<720)
  13. torus{1.5,.25
  14. pigment{color rgb<
  15. abs(mod(720-A,30)-15)/15,
  16. 1-abs(mod(720-A,20)-10)/10,
  17. abs(mod(720-A,40)-20)/20>}
  18. finish{Shiny}
  19. translate x*10
  20. rotate y*A*5
  21. rotate z*A*20
  22. translate z*-20
  23. rotate x*A
  24. rotate y*A*.5
  25. rotate z*45}
  26. #declare A=A+(1/4)
  27. #end
  28.  
  29. // END -=- TWISTORI.POV -=-
  30.  
  31.